home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / clearbuffer.ifx.pre < prev    next >
Text File  |  2004-08-03  |  533b  |  26 lines
  1. /*
  2.  *    Clear_Buffer.ifx.pre
  3.  *    Saves the settings into the
  4.  *    ImpClearBufferParameters clip variable.
  5.  *
  6.  *    by Steve Tibbett
  7.  */
  8.  
  9. Options Results
  10.  
  11. Defaults=GetClip("ImpClearBufferParameters"arg(1));
  12. if (Defaults="") then Defaults="0 0 0"
  13.  
  14. Parse Var Defaults r g bl
  15.  
  16. Gadget.1 = 'I/125/17/Red:/'r
  17. Gadget.2 = 'I/125/31/Green:/'g
  18. Gadget.3 = 'I/125/45/Blue:/'bl
  19.  
  20. ComplexRequest '"Clear Buffer To..."' 3 Gadget 300 83
  21. IF rc ~= 0 THEN return 10
  22.  
  23. Defaults=Result.1 Result.2 Result.3
  24. call SetClip("ImpClearBufferParameters"arg(1), Defaults);
  25.  
  26.